home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VB Source 20626652001.psc / Class1.cls next >
Encoding:
Visual Basic class definition  |  2001-04-27  |  1.7 KB  |  49 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "PrintSourceCode"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Option Explicit
  15. Option Compare Text
  16.  
  17. ' Module Name:  ClassAddin  (filename: Class1.cls)
  18. ' Author:       Santiago A. MΘndez  (Guatemala, C.A.)
  19. ' email:        Santiago@InternetDeTelgua.com.gt
  20. ' Date:         23-Abr-01
  21. ' Description:  This module was copied from MSDN Library Visual Studio 6.0
  22. '               and I made some Little changes to the code.
  23. '               The purpose of functions in this module are:
  24. '               1. Add a menu item in Tools Menu to give the user a way to print Code
  25.  
  26. ' VBI is assigned a pointer to the current IDE's
  27. ' VBA object which is later passed as a parameter
  28. ' to the OnConnection procedure. It's retained
  29. ' because you need it later for disconnecting the
  30. ' add-in. Other procedures may have a need for it
  31. ' as well.
  32.  
  33. Private Modulo As Office.CommandBarControl
  34. 'Private Seleccion As Office.CommandBarControl
  35.  
  36. ' This will be set to the new command bar control.
  37.  
  38. Private WithEvents PrintModule As CommandBarEvents
  39. Attribute PrintModule.VB_VarHelpID = -1
  40. 'Private WithEvents PrintSelection As CommandBarEvents
  41.  
  42. ' This is the event handling procedure for
  43. ' the click event of the new command bar control.
  44.  
  45. Implements IDTExtensibility
  46.  
  47. Private Sub IDTExtensibility_OnAddInsUpdate(custom() As Variant)
  48. 'must be here in order to the add-in gbarEfis= nt be here intnsibility_OnDt)
  49. 'mu  to